\begin{tabbing}
$\forall$${\it ds}$:fpf(Id; $x$.Type), ${\it da}$:fpf(Knd; $k$.Type), ${\it es}$:event\_system\{i:l\}, $i$:Id, $e_{1}$,$e_{2}$:\{\=$e$:es{-}E(${\it es}$)$\mid$ \+
\\[0ex]loc($e$) = $i$\} .
\-\\[0ex]($\forall$$x$:Id. subtype\_rel(es{-}vartype(${\it es}$; $i$; $x$); fpf{-}cap(${\it ds}$; id{-}deq; $x$; top)))
\\[0ex]$\Rightarrow$ \=($\forall$$e$:es{-}E(${\it es}$). \+
\\[0ex](loc($e$) = $i$)
\\[0ex]$\Rightarrow$ subtype\_rel(es{-}valtype(${\it es}$; $e$); fpf{-}cap(${\it da}$; Kind{-}deq; es{-}kind(${\it es}$; $e$); top)))
\-\\[0ex]$\Rightarrow$ es{-}locl(${\it es}$; $e_{1}$; $e_{2}$)
\\[0ex]$\Rightarrow$ (\=es{-}hist\{i:l\}(${\it es}$;$e_{1}$;$e_{2}$)\+
\\[0ex]=
\\[0ex]append(es{-}hist\{i:l\}(${\it es}$;$e_{1}$;es{-}pred(${\it es}$; $e_{2}$)); cons(es{-}info(${\it es}$;$e_{2}$); []))
\\[0ex]$\in$ (event{-}info(${\it ds}$;${\it da}$) List))
\-
\end{tabbing}